string.lowercase

let compare a b = match (a,b) with
(a,b) when a = b  -> 0
|(a,b) when a > b -> 1
|(a,b) when a < b -> -1;;

let find a b = 